home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 217 / src / lseek.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-05  |  286 b   |  22 lines
  1. #include <stdio.h>
  2. #include <errno.h>
  3.  
  4. long lseek(h, where, how)
  5.     int h;
  6.     long where;
  7.     int how;
  8.     {
  9.     register long rv;
  10.  
  11.     rv = gemdos(0x42, where, h, how);
  12.     if(rv < 0)
  13.         errno = ((int) rv);
  14.     return(rv);
  15.     }
  16.  
  17. long tell(h)
  18.     int h;
  19.     {
  20.     return(lseek(h, 0L, SEEK_CUR));
  21.     }
  22.